home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / dfinfo.exe / DFINFOS1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-05-05  |  27.6 KB  |  777 lines
  1. VERSION 4.00
  2. Begin VB.Form DFInfoS1 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "DFInfo Sample"
  5.    ClientHeight    =   4380
  6.    ClientLeft      =   1350
  7.    ClientTop       =   1965
  8.    ClientWidth     =   5910
  9.    BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  10.       Name            =   "MS Sans Serif"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    Height          =   4785
  20.    Left            =   1290
  21.    LinkTopic       =   "Form1"
  22.    MaxButton       =   0   'False
  23.    ScaleHeight     =   4380
  24.    ScaleWidth      =   5910
  25.    Top             =   1620
  26.    Width           =   6030
  27.    Begin VB.Frame Frame2 
  28.       Caption         =   "File Info"
  29.       Height          =   4155
  30.       Left            =   3015
  31.       TabIndex        =   13
  32.       Top             =   90
  33.       Width           =   2760
  34.       Begin VB.TextBox Text1 
  35.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  36.             Name            =   "MS Sans Serif"
  37.             Size            =   8.25
  38.             Charset         =   0
  39.             Weight          =   400
  40.             Underline       =   0   'False
  41.             Italic          =   0   'False
  42.             Strikethrough   =   0   'False
  43.          EndProperty
  44.          Height          =   285
  45.          Left            =   945
  46.          TabIndex        =   31
  47.          Top             =   1080
  48.          Width           =   1680
  49.       End
  50.       Begin VB.FileListBox File1 
  51.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  52.             Name            =   "MS Sans Serif"
  53.             Size            =   8.25
  54.             Charset         =   0
  55.             Weight          =   400
  56.             Underline       =   0   'False
  57.             Italic          =   0   'False
  58.             Strikethrough   =   0   'False
  59.          EndProperty
  60.          Height          =   450
  61.          Left            =   765
  62.          TabIndex        =   30
  63.          Top             =   1440
  64.          Width           =   1860
  65.       End
  66.       Begin VB.DirListBox Dir1 
  67.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  68.             Name            =   "MS Sans Serif"
  69.             Size            =   8.25
  70.             Charset         =   0
  71.             Weight          =   400
  72.             Underline       =   0   'False
  73.             Italic          =   0   'False
  74.             Strikethrough   =   0   'False
  75.          EndProperty
  76.          Height          =   705
  77.          Left            =   765
  78.          TabIndex        =   29
  79.          Top             =   315
  80.          Width           =   1860
  81.       End
  82.       Begin VB.PictureBox Picture2 
  83.          Appearance      =   0  'Flat
  84.          BackColor       =   &H80000005&
  85.          BorderStyle     =   0  'None
  86.          ForeColor       =   &H80000008&
  87.          Height          =   420
  88.          Left            =   180
  89.          Picture         =   "DFINFOS1.frx":0000
  90.          ScaleHeight     =   511.305
  91.          ScaleMode       =   0  'User
  92.          ScaleWidth      =   511.305
  93.          TabIndex        =   14
  94.          Top             =   315
  95.          Width           =   420
  96.       End
  97.       Begin VB.Label Label20 
  98.          Alignment       =   1  'Right Justify
  99.          Appearance      =   0  'Flat
  100.          AutoSize        =   -1  'True
  101.          BackColor       =   &H80000005&
  102.          BackStyle       =   0  'Transparent
  103.          Caption         =   "Filename:"
  104.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  105.             Name            =   "MS Sans Serif"
  106.             Size            =   8.25
  107.             Charset         =   0
  108.             Weight          =   400
  109.             Underline       =   0   'False
  110.             Italic          =   0   'False
  111.             Strikethrough   =   0   'False
  112.          EndProperty
  113.          ForeColor       =   &H80000008&
  114.          Height          =   195
  115.          Left            =   240
  116.          TabIndex        =   32
  117.          Top             =   1170
  118.          Width           =   675
  119.       End
  120.       Begin VB.Label Label9 
  121.          BorderStyle     =   1  'Fixed Single
  122.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  123.             Name            =   "MS Sans Serif"
  124.             Size            =   8.25
  125.             Charset         =   0
  126.             Weight          =   400
  127.             Underline       =   0   'False
  128.             Italic          =   0   'False
  129.             Strikethrough   =   0   'False
  130.          EndProperty
  131.          Height          =   240
  132.          Left            =   1035
  133.          TabIndex        =   18
  134.          Top             =   2250
  135.          Width           =   1590
  136.       End
  137.       Begin VB.Label Label19 
  138.          BorderStyle     =   1  'Fixed Single
  139.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  140.             Name            =   "MS Sans Serif"
  141.             Size            =   8.25
  142.             Charset         =   0
  143.             Weight          =   400
  144.             Underline       =   0   'False
  145.             Italic          =   0   'False
  146.             Strikethrough   =   0   'False
  147.          EndProperty
  148.          Height          =   240
  149.          Left            =   1035
  150.          TabIndex        =   28
  151.          Top             =   3825
  152.          Width           =   1590
  153.       End
  154.       Begin VB.Label Label18 
  155.          Alignment       =   1  'Right Justify
  156.          AutoSize        =   -1  'True
  157.          BackStyle       =   0  'Transparent
  158.          Caption         =   "System:"
  159.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  160.             Name            =   "MS Sans Serif"
  161.             Size            =   8.25
  162.             Charset         =   0
  163.             Weight          =   400
  164.             Underline       =   0   'False
  165.             Italic          =   0   'False
  166.             Strikethrough   =   0   'False
  167.          EndProperty
  168.          Height          =   195
  169.          Left            =   435
  170.          TabIndex        =   27
  171.          Top             =   3870
  172.          Width           =   555
  173.       End
  174.       Begin VB.Label Label17 
  175.          BorderStyle     =   1  'Fixed Single
  176.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  177.             Name            =   "MS Sans Serif"
  178.             Size            =   8.25
  179.             Charset         =   0
  180.             Weight          =   400
  181.             Underline       =   0   'False
  182.             Italic          =   0   'False
  183.             Strikethrough   =   0   'False
  184.          EndProperty
  185.          Height          =   240
  186.          Left            =   1035
  187.          TabIndex        =   26
  188.          Top             =   3510
  189.          Width           =   1590
  190.       End
  191.       Begin VB.Label Label16 
  192.          Alignment       =   1  'Right Justify
  193.          AutoSize        =   -1  'True
  194.          BackStyle       =   0  'Transparent
  195.          Caption         =   "ReadOnly:"
  196.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  197.             Name            =   "MS Sans Serif"
  198.             Size            =   8.25
  199.             Charset         =   0
  200.             Weight          =   400
  201.             Underline       =   0   'False
  202.             Italic          =   0   'False
  203.             Strikethrough   =   0   'False
  204.          EndProperty
  205.          Height          =   195
  206.          Left            =   240
  207.          TabIndex        =   25
  208.          Top             =   3555
  209.          Width           =   750
  210.       End
  211.       Begin VB.Label Label15 
  212.          BorderStyle     =   1  'Fixed Single
  213.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  214.             Name            =   "MS Sans Serif"
  215.             Size            =   8.25
  216.             Charset         =   0
  217.             Weight          =   400
  218.             Underline       =   0   'False
  219.             Italic          =   0   'False
  220.             Strikethrough   =   0   'False
  221.          EndProperty
  222.          Height          =   240
  223.          Left            =   1035
  224.          TabIndex        =   24
  225.          Top             =   3195
  226.          Width           =   1590
  227.       End
  228.       Begin VB.Label Label14 
  229.          Alignment       =   1  'Right Justify
  230.          AutoSize        =   -1  'True
  231.          BackStyle       =   0  'Transparent
  232.          Caption         =   "Hidden:"
  233.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  234.             Name            =   "MS Sans Serif"
  235.             Size            =   8.25
  236.             Charset         =   0
  237.             Weight          =   400
  238.             Underline       =   0   'False
  239.             Italic          =   0   'False
  240.             Strikethrough   =   0   'False
  241.          EndProperty
  242.          Height          =   195
  243.          Left            =   435
  244.          TabIndex        =   23
  245.          Top             =   3240
  246.          Width           =   555
  247.       End
  248.       Begin VB.Label Label13 
  249.          BorderStyle     =   1  'Fixed Single
  250.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  251.             Name            =   "MS Sans Serif"
  252.             Size            =   8.25
  253.             Charset         =   0
  254.             Weight          =   400
  255.             Underline       =   0   'False
  256.             Italic          =   0   'False
  257.             Strikethrough   =   0   'False
  258.          EndProperty
  259.          Height          =   240
  260.          Left            =   1035
  261.          TabIndex        =   22
  262.          Top             =   2880
  263.          Width           =   1590
  264.       End
  265.       Begin VB.Label Label12 
  266.          Alignment       =   1  'Right Justify
  267.          AutoSize        =   -1  'True
  268.          BackStyle       =   0  'Transparent
  269.          Caption         =   "Archived:"
  270.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  271.             Name            =   "MS Sans Serif"
  272.             Size            =   8.25
  273.             Charset         =   0
  274.             Weight          =   400
  275.             Underline       =   0   'False
  276.             Italic          =   0   'False
  277.             Strikethrough   =   0   'False
  278.          EndProperty
  279.          Height          =   195
  280.          Left            =   330
  281.          TabIndex        =   21
  282.          Top             =   2925
  283.          Width           =   675
  284.       End
  285.       Begin VB.Label Label11 
  286.          BorderStyle     =   1  'Fixed Single
  287.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  288.             Name            =   "MS Sans Serif"
  289.             Size            =   8.25
  290.             Charset         =   0
  291.             Weight          =   400
  292.             Underline       =   0   'False
  293.             Italic          =   0   'False
  294.             Strikethrough   =   0   'False
  295.          EndProperty
  296.          Height          =   240
  297.          Left            =   1035
  298.          TabIndex        =   20
  299.          Top             =   2565
  300.          Width           =   1590
  301.       End
  302.       Begin VB.Label Label10 
  303.          Alignment       =   1  'Right Justify
  304.          AutoSize        =   -1  'True
  305.          BackStyle       =   0  'Transparent
  306.          Caption         =   "Time:"
  307.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  308.             Name            =   "MS Sans Serif"
  309.             Size            =   8.25
  310.             Charset         =   0
  311.             Weight          =   400
  312.             Underline       =   0   'False
  313.             Italic          =   0   'False
  314.             Strikethrough   =   0   'False
  315.          EndProperty
  316.          Height          =   195
  317.          Left            =   585
  318.          TabIndex        =   19
  319.          Top             =   2610
  320.          Width           =   390
  321.       End
  322.       Begin VB.Label Label8 
  323.          Alignment       =   1  'Right Justify
  324.          AutoSize        =   -1  'True
  325.          BackStyle       =   0  'Transparent
  326.          Caption         =   "Date:"
  327.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  328.             Name            =   "MS Sans Serif"
  329.             Size            =   8.25
  330.             Charset         =   0
  331.             Weight          =   400
  332.             Underline       =   0   'False
  333.             Italic          =   0   'False
  334.             Strikethrough   =   0   'False
  335.          EndProperty
  336.          Height          =   195
  337.          Left            =   585
  338.          TabIndex        =   17
  339.          Top             =   2295
  340.          Width           =   390
  341.       End
  342.       Begin VB.Label Label7 
  343.          BorderStyle     =   1  'Fixed Single
  344.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  345.             Name            =   "MS Sans Serif"
  346.             Size            =   8.25
  347.             Charset         =   0
  348.             Weight          =   400
  349.             Underline       =   0   'False
  350.             Italic          =   0   'False
  351.             Strikethrough   =   0   'False
  352.          EndProperty
  353.          Height          =   240
  354.          Left            =   1035
  355.          TabIndex        =   16
  356.          Top             =   1935
  357.          Width           =   1590
  358.       End
  359.       Begin VB.Label Label6 
  360.          Alignment       =   1  'Right Justify
  361.          AutoSize        =   -1  'True
  362.          BackStyle       =   0  'Transparent
  363.          Caption         =   "Size:"
  364.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  365.             Name            =   "MS Sans Serif"
  366.             Size            =   8.25
  367.             Charset         =   0
  368.             Weight          =   400
  369.             Underline       =   0   'False
  370.             Italic          =   0   'False
  371.             Strikethrough   =   0   'False
  372.          EndProperty
  373.          Height          =   195
  374.          Left            =   630
  375.          TabIndex        =   15
  376.          Top             =   1980
  377.          Width           =   345
  378.       End
  379.    End
  380.    Begin VB.Frame Frame1 
  381.       Caption         =   "Disk Info"
  382.       Height          =   3285
  383.       Left            =   90
  384.       TabIndex        =   0
  385.       Top             =   90
  386.       Width           =   2760
  387.       Begin VB.DriveListBox Drive1 
  388.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  389.             Name            =   "MS Sans Serif"
  390.             Size            =   8.25
  391.             Charset         =   0
  392.             Weight          =   400
  393.             Underline       =   0   'False
  394.             Italic          =   0   'False
  395.             Strikethrough   =   0   'False
  396.          EndProperty
  397.          Height          =   315
  398.          Left            =   720
  399.          TabIndex        =   2
  400.          Top             =   360
  401.          Width           =   1950
  402.       End
  403.       Begin VB.PictureBox Picture1 
  404.          Appearance      =   0  'Flat
  405.          AutoSize        =   -1  'True
  406.          BackColor       =   &H80000005&
  407.          BorderStyle     =   0  'None
  408.          ForeColor       =   &H80000008&
  409.          Height          =   420
  410.          Left            =   120
  411.          Picture         =   "DFINFOS1.frx":0242
  412.          ScaleHeight     =   420
  413.          ScaleWidth      =   420
  414.          TabIndex        =   1
  415.          Top             =   360
  416.          Width           =   420
  417.       End
  418.       Begin VB.Label lblSerialNum 
  419.          BorderStyle     =   1  'Fixed Single
  420.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  421.             Name            =   "MS Sans Serif"
  422.             Size            =   8.25
  423.             Charset         =   0
  424.             Weight          =   400
  425.             Underline       =   0   'False
  426.             Italic          =   0   'False
  427.             Strikethrough   =   0   'False
  428.          EndProperty
  429.          Height          =   255
  430.          Left            =   1560
  431.          TabIndex        =   36
  432.          Top             =   2880
  433.          Width           =   1095
  434.       End
  435.       Begin VB.Label Label22 
  436.          Alignment       =   1  'Right Justify
  437.          Caption         =   "Serial Number:"
  438.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  439.             Name            =   "MS Sans Serif"
  440.             Size            =   8.25
  441.             Charset         =   0
  442.             Weight          =   400
  443.             Underline       =   0   'False
  444.             Italic          =   0   'False
  445.             Strikethrough   =   0   'False
  446.          EndProperty
  447.          Height          =   255
  448.          Left            =   465
  449.          TabIndex        =   35
  450.          Top             =   2880
  451.          Width           =   1050
  452.       End
  453.       Begin VB.Label StartupDrive 
  454.          BorderStyle     =   1  'Fixed Single
  455.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  456.             Name            =   "MS Sans Serif"
  457.             Size            =   8.25
  458.             Charset         =   0
  459.             Weight          =   400
  460.             Underline       =   0   'False
  461.             Italic          =   0   'False
  462.             Strikethrough   =   0   'False
  463.          EndProperty
  464.          Height          =   255
  465.          Left            =   1575
  466.          TabIndex        =   12
  467.          Top             =   2520
  468.          Width           =   1095
  469.       End
  470.       Begin VB.Label Label5 
  471.          Alignment       =   1  'Right Justify
  472.          AutoSize        =   -1  'True
  473.          BackStyle       =   0  'Transparent
  474.          Caption         =   "Start-Up Drive:"
  475.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  476.             Name            =   "MS Sans Serif"
  477.             Size            =   8.25
  478.             Charset         =   0
  479.             Weight          =   400
  480.             Underline       =   0   'False
  481.             Italic          =   0   'False
  482.             Strikethrough   =   0   'False
  483.          EndProperty
  484.          Height          =   195
  485.          Left            =   465
  486.          TabIndex        =   11
  487.          Top             =   2565
  488.          Width           =   1050
  489.       End
  490.       Begin VB.Label NumFloppies 
  491.          BorderStyle     =   1  'Fixed Single
  492.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  493.             Name            =   "MS Sans Serif"
  494.             Size            =   8.25
  495.             Charset         =   0
  496.             Weight          =   400
  497.             Underline       =   0   'False
  498.             Italic          =   0   'False
  499.             Strikethrough   =   0   'False
  500.          EndProperty
  501.          Height          =   255
  502.          Left            =   1575
  503.          TabIndex        =   10
  504.          Top             =   2160
  505.          Width           =   1080
  506.       End
  507.       Begin VB.Label Label4 
  508.          Alignment       =   1  'Right Justify
  509.          AutoSize        =   -1  'True
  510.          BackStyle       =   0  'Transparent
  511.          Caption         =   "# Floppies:"
  512.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  513.             Name            =   "MS Sans Serif"
  514.             Size            =   8.25
  515.             Charset         =   0
  516.             Weight          =   400
  517.             Underline       =   0   'False
  518.             Italic          =   0   'False
  519.             Strikethrough   =   0   'False
  520.          EndProperty
  521.          Height          =   195
  522.          Left            =   735
  523.          TabIndex        =   9
  524.          Top             =   2205
  525.          Width           =   780
  526.       End
  527.       Begin VB.Label VolumeName 
  528.          BorderStyle     =   1  'Fixed Single
  529.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  530.             Name            =   "MS Sans Serif"
  531.             Size            =   8.25
  532.             Charset         =   0
  533.             Weight          =   400
  534.             Underline       =   0   'False
  535.             Italic          =   0   'False
  536.             Strikethrough   =   0   'False
  537.          EndProperty
  538.          Height          =   255
  539.          Left            =   1305
  540.          TabIndex        =   8
  541.          Top             =   960
  542.          Width           =   1365
  543.       End
  544.       Begin VB.Label Label3 
  545.          Alignment       =   1  'Right Justify
  546.          AutoSize        =   -1  'True
  547.          BackStyle       =   0  'Transparent
  548.          Caption         =   "Volume:"
  549.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  550.             Name            =   "MS Sans Serif"
  551.             Size            =   8.25
  552.             Charset         =   0
  553.             Weight          =   400
  554.             Underline       =   0   'False
  555.             Italic          =   0   'False
  556.             Strikethrough   =   0   'False
  557.          EndProperty
  558.          Height          =   195
  559.          Left            =   585
  560.          TabIndex        =   7
  561.          Top             =   990
  562.          Width           =   630
  563.       End
  564.       Begin VB.Label Network 
  565.          BorderStyle     =   1  'Fixed Single
  566.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  567.             Name            =   "MS Sans Serif"
  568.             Size            =   8.25
  569.             Charset         =   0
  570.             Weight          =   400
  571.             Underline       =   0   'False
  572.             Italic          =   0   'False
  573.             Strikethrough   =   0   'False
  574.          EndProperty
  575.          Height          =   255
  576.          Left            =   1305
  577.          TabIndex        =   6
  578.          Top             =   1665
  579.          Width           =   1365
  580.       End
  581.       Begin VB.Label Label2 
  582.          Alignment       =   1  'Right Justify
  583.          AutoSize        =   -1  'True
  584.          BackStyle       =   0  'Transparent
  585.          Caption         =   "Network:"
  586.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  587.             Name            =   "MS Sans Serif"
  588.             Size            =   8.25
  589.             Charset         =   0
  590.             Weight          =   400
  591.             Underline       =   0   'False
  592.             Italic          =   0   'False
  593.             Strikethrough   =   0   'False
  594.          EndProperty
  595.          Height          =   195
  596.          Left            =   495
  597.          TabIndex        =   5
  598.          Top             =   1710
  599.          Width           =   720
  600.       End
  601.       Begin VB.Label FreeSpace 
  602.          BorderStyle     =   1  'Fixed Single
  603.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  604.             Name            =   "MS Sans Serif"
  605.             Size            =   8.25
  606.             Charset         =   0
  607.             Weight          =   400
  608.             Underline       =   0   'False
  609.             Italic          =   0   'False
  610.             Strikethrough   =   0   'False
  611.          EndProperty
  612.          Height          =   255
  613.          Left            =   1305
  614.          TabIndex        =   3
  615.          Top             =   1305
  616.          Width           =   1350
  617.       End
  618.       Begin VB.Label Label1 
  619.          Alignment       =   1  'Right Justify
  620.          AutoSize        =   -1  'True
  621.          BackStyle       =   0  'Transparent
  622.          Caption         =   "Free Space:"
  623.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  624.             Name            =   "MS Sans Serif"
  625.             Size            =   8.25
  626.             Charset         =   0
  627.             Weight          =   400
  628.             Underline       =   0   'False
  629.             Italic          =   0   'False
  630.             Strikethrough   =   0   'False
  631.          EndProperty
  632.          Height          =   195
  633.          Left            =   240
  634.          TabIndex        =   4
  635.          Top             =   1350
  636.          Width           =   990
  637.       End
  638.    End
  639.    Begin DfinfoLib.FileInfo FileInfo1 
  640.       Left            =   2280
  641.       Top             =   4200
  642.       _Version        =   131076
  643.       _ExtentX        =   847
  644.       _ExtentY        =   847
  645.       _StockProps     =   0
  646.       Filename        =   ""
  647.    End
  648.    Begin DfinfoLib.DiskInfo DiskInfo1 
  649.       Height          =   480
  650.       Left            =   1800
  651.       TabIndex        =   34
  652.       Top             =   4200
  653.       Visible         =   0   'False
  654.       Width           =   480
  655.       _Version        =   131076
  656.       _ExtentX        =   847
  657.       _ExtentY        =   847
  658.       _StockProps     =   0
  659.       Disk            =   ""
  660.    End
  661.    Begin VB.Label Label21 
  662.       Appearance      =   0  'Flat
  663.       BackColor       =   &H80000005&
  664.       BackStyle       =   0  'Transparent
  665.       Caption         =   "This sample was provided by Peter Franks.  Mabry Software would like to thank him for his unsolicited support."
  666.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  667.          Name            =   "MS Sans Serif"
  668.          Size            =   8.25
  669.          Charset         =   0
  670.          Weight          =   400
  671.          Underline       =   0   'False
  672.          Italic          =   0   'False
  673.          Strikethrough   =   0   'False
  674.       EndProperty
  675.       ForeColor       =   &H80000008&
  676.       Height          =   615
  677.       Left            =   120
  678.       TabIndex        =   33
  679.       Top             =   3480
  680.       Width           =   2775
  681.    End
  682. Attribute VB_Name = "DFInfoS1"
  683. Attribute VB_Creatable = False
  684. Attribute VB_Exposed = False
  685. Option Explicit
  686. Private Sub Dir1_Change()
  687.     File1.Path = Dir1.Path
  688.     File1.Refresh
  689. End Sub
  690. Private Sub Drive1_Change()
  691.     Dir1.Path = UCase(Left(Drive1.Drive, 1)) + ":\"
  692.     Dir1.Refresh
  693.     DiskInfo1.Disk = Drive1
  694.     VolumeName = DiskInfo1.VolumeName
  695.     FreeSpace = DiskInfo1.FreeSpace
  696.     lblSerialNum = Format$(Left$(Hex$(DiskInfo1.SerialNumber), 4), "0000") & "-" & Format$(Right$(Hex$(DiskInfo1.SerialNumber), 4), "0000")
  697.     If DiskInfo1.Network Then
  698.         Network = "Network"
  699.     Else
  700.         Network = "Local"
  701.     End If
  702. End Sub
  703. Private Sub File1_Click()
  704.     Dim Path$
  705.     If Not Right$(Dir1.Path, 1) = "\" Then
  706.         Path$ = Dir1.Path + "\"
  707.     Else
  708.         Path$ = Dir1.Path
  709.     End If
  710.     FileInfo1.filename = Path$ + File1.filename
  711.     Label7.Caption = Str$(FileInfo1.Size)
  712.     Label9.Caption = FileInfo1.FileDate
  713.     Label11.Caption = FileInfo1.FileTime
  714.     If FileInfo1.IsArchived Then
  715.         Label13.Caption = "True"
  716.     Else
  717.         Label13.Caption = "False"
  718.     End If
  719.     If FileInfo1.IsHidden Then
  720.         Label15.Caption = "True"
  721.     Else
  722.         Label15.Caption = "False"
  723.     End If
  724.     If FileInfo1.IsReadOnly Then
  725.         Label17.Caption = "True"
  726.     Else
  727.         Label17.Caption = "False"
  728.     End If
  729.     If FileInfo1.IsSystem Then
  730.         Label19.Caption = "True"
  731.     Else
  732.         Label19.Caption = "False"
  733.     End If
  734. End Sub
  735. Private Sub Form_Load()
  736.     DFInfoS1.Left = (Screen.Width - DFInfoS1.Width) / 2
  737.     DFInfoS1.Top = (Screen.Height - DFInfoS1.Height) / 2
  738.     Call Drive1_Change    ' force load of labels
  739.     NumFloppies = DiskInfo1.NumFloppies
  740.     StartupDrive = DiskInfo1.StartupDrive
  741. End Sub
  742. Private Sub Form_Unload(Cancel As Integer)
  743.     End
  744. End Sub
  745. Private Sub Text1_Change()
  746.     Dim Path$
  747.         If Not Right$(Dir1.Path, 1) = "\" Then
  748.             Path$ = Dir1.Path + "\"
  749.         Else
  750.             Path$ = Dir1.Path
  751.         End If
  752.         FileInfo1.filename = Path$ + text1.Text
  753.         Label7.Caption = Str$(FileInfo1.Size)
  754.         Label9.Caption = FileInfo1.FileDate
  755.         Label11.Caption = FileInfo1.FileTime
  756.         If FileInfo1.IsArchived Then
  757.             Label13.Caption = "True"
  758.         Else
  759.             Label13.Caption = "False"
  760.         End If
  761.         If FileInfo1.IsHidden Then
  762.             Label15.Caption = "True"
  763.         Else
  764.             Label15.Caption = "False"
  765.         End If
  766.         If FileInfo1.IsReadOnly Then
  767.             Label17.Caption = "True"
  768.         Else
  769.             Label17.Caption = "False"
  770.         End If
  771.         If FileInfo1.IsSystem Then
  772.             Label19.Caption = "True"
  773.         Else
  774.             Label19.Caption = "False"
  775.         End If
  776. End Sub
  777.